home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2002 March / PCpro_2002_03.ISO / QuickSteuer 2001 / data1.cab / Tools / sysinfo.lsf < prev    next >
Encoding:
Text File  |  2000-10-27  |  8.4 KB  |  306 lines
  1. '------------------------'------------------------'------------------------
  2. ' Test Formular
  3. Include "DruckNT.int"
  4. '------------------------'------------------------'------------------------
  5.  
  6. declare external Get(s as String, n as Numeric) as String
  7. declare external Is(s as String, n as Numeric) as Bool
  8. declare external GetNumeric(s as String, n as Numeric) as Numeric
  9. declare external GetInt(s as String, n as Numeric) as Numeric
  10. declare external GetDate(s as String, n as Numeric) as Numeric
  11. declare external GetTime(s as String, n as Numeric) as Numeric
  12. declare external FirstRecord(s as String) as Bool
  13. declare external NextRecord(s as String) as Bool
  14. '-------------------'-------------------DESCRIPTION'-------------------'-------------------
  15. description form_description as "Lexware Systeminformationen"
  16. description form_code as "Systeminformationen"
  17. description form_version as "2.20.01.1111"
  18. description page_orientation as PAGE_PORTRAIT
  19.  
  20. '-------------------'-------------------MARGINS'-------------------'-------------------
  21. SetBodyMargin     ( 110, 200, 140, 200 )        ' left top right bottom
  22. SetFooterMargin   ( 110, 200, 150, 200 )        ' left top right height
  23. SetHeaderMargin   ( 110, 90, 140, 150 )        ' left top right height
  24.  
  25. '-------------------'-------------------KONSTANTEN'-------------------'-------------------
  26.  
  27. '-------------------'-------------------VARIABLEN'-------------------'-------------------
  28. Dim font as FontType
  29. font = CreateFont("Arial",12,FONT_NORMAL,COLOR_BLACK)
  30. Dim fon as FontType
  31. fon = CreateFont("Arial",10,FONT_NORMAL,COLOR_BLACK)
  32.  
  33.  
  34. '-------------------'-------------------FUNCTIONS'-------------------'-------------------
  35.  
  36. 'Footer Bereich
  37. function OnPrintFooter()
  38.    RemoveAllTabs()
  39.     SetTabs("L C R")
  40.     SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  41.     DrawHorzLine(LINE_TOP)
  42.     LF
  43.     TL( "⌐ Lexware GmbH & Co. KG 1999\t" + FormatDate("%d.%m.%Y", Now()) + "\tSeite " + PAGENUMBER + "  " +GetFormFileName())
  44.     RemoveAllTabs()
  45. end function
  46.  
  47. 'Header Bereich
  48. function OnPrintHeader()
  49.     RemoveAllTabs()
  50.     SetTabs("L C R")
  51.     SetFont("Arial", 14, FONT_BOLD, COLOR_BLACK)
  52.     TL( "Lexware Systeminformation")
  53.     DrawHorzLine(LINE_TOP)
  54.     RemoveAllTabs()
  55. end function
  56.  
  57.  
  58. '---------------'---------------EVENT HANDLER'---------------'---------------
  59. SetEventHandler(EVENT_PRINT_FOOTER, OnPrintFooter)
  60. SetEventHandler(EVENT_PRINT_HEADER, OnPrintHeader)
  61.  
  62.  
  63. '---------------'---------------MAIN'---------------'---------------
  64. Dim bG as Bool
  65. Dim bG1 as Bool
  66. Dim bGC as Bool
  67.  
  68.  
  69. LF
  70. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  71. TL("Betriebssystem")
  72. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  73. SetTabs(" L L200")  '@TABS L L20
  74. TL("Produkt\t"+ Get("S",1))
  75. TL("Version\t"+ Get("S",2))
  76. TL("Sprache\t"+ Get("S",3))
  77. LF
  78.  
  79. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  80. SetTabs(" L L380")
  81. TL("Verzeichnisse\tPfad")
  82. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  83. TL("Windows-Verzeichnis\t"+ Get("S",4))
  84. TL("System-Verzeichnis\t"+ Get("S",5))
  85. TL("Temp-Verzeichnis\t"+ Get("S",6))
  86. LF
  87.  
  88. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  89. RemoveAllTabs()
  90. SetTabs(" L R800 R1400")
  91. TL("Speicher\tTotal\tFrei")
  92. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  93. TL("Speicherlast\t"+ Get("S",11))
  94. TL("physikalisch\t" + Get("S",12)+"\t" + Get("S",13))
  95. TL("virtuell\t" + Get("S",14)+"\t"+ Get("S",15))
  96. TL("Auslagerungsdatei\t" + Get("S",16)+"\t"+ Get("S",17))
  97. LF
  98.  
  99. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  100. RemoveAllTabs()
  101. SetTabs(" L L200 R800 L900")
  102. TL("Laufwerk\tTyp\tFrei\tPfad")
  103. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  104. bG = FirstRecord("A")
  105. while bG do
  106.     TL(""+Get("A",1)+"\t"+Get("A",2)+"\t"+Get("A",3)+"\t"+Get("A",4) )
  107.     bG = NextRecord("A")
  108. end while
  109. LF
  110.  
  111. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  112. RemoveAllTabs()
  113. SetTabs(" L L500")
  114. TL("LΣndereinstellungen")
  115. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  116. bG = FirstRecord("B")
  117. while bG do
  118.     TL(Get("B",1)+"\t"+Get("B",2) )
  119.     bG = NextRecord("B")
  120. end while
  121. LF
  122.  
  123. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  124. RemoveAllTabs()
  125. SetTabs(" L L900")
  126. TL("Soundkarten\tVersion")
  127. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  128. bG = FirstRecord("D")
  129. while bG do
  130.     TL(Get("D",1)+"\t"+Get("D",2) )
  131.     bG = NextRecord("D")
  132. end while
  133. LF
  134.  
  135. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  136. RemoveAllTabs()
  137. SetTabs(" L L900 L1100")
  138. TL("Drucker\tTreiber\tPfad")
  139. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  140. bG = FirstRecord("E")
  141. while bG do
  142.     TL(Get("E",1)+"\t"+Get("E",2)+"\t"+Get("E",3) )
  143.     bG = NextRecord("E")
  144. end while
  145. LF
  146.  
  147.  
  148. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  149. RemoveAllTabs()
  150. SetTabs(" L L200")
  151. TL("Anzeige")
  152. SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  153. TL("\tTreiber\t"+ Get("S",31) )
  154. TL("\tAufl÷sung\t"+ Get("S",32) )
  155. TL("\tFarbtiefe\t"+ Get("S",33) )
  156. LF
  157.  
  158. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  159. RemoveAllTabs()
  160. TL("ODBC Treiber")
  161. bGC = FirstRecord("C")
  162.  
  163. SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  164. RemoveAllTabs()
  165. SetTabs("L  L900")
  166. while bGC do
  167.     SetFont("Arial", 8, FONT_BOLD, COLOR_BLACK)
  168.     TL(Get("C",1))
  169.     TL("Wert\tStatus")
  170.     SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  171.     bG = FirstRecord("F")
  172.     while bG do
  173.         TL(Get("F",1)+"\t\t"+Get("F",2) )
  174.         bG = NextRecord("F")
  175.     end while
  176.     bGC = NextRecord("C")
  177. end while
  178.  
  179.  
  180.  
  181. bG1 = FirstRecord("G")
  182. while bG1 do
  183.     PageBreak()
  184.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  185.     RemoveAllTabs()
  186.     SetTabs(" L L200")
  187.     TL( Get("G",1) )
  188.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  189.     TL("Version\t"+Get("G",2) )
  190.     TL("Serien-Nr\t"+Get("G",3) )
  191.     LF
  192.     
  193.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  194.     TL("Intern")
  195.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  196.     RemoveAllTabs()
  197.     SetTabs(" L L600")
  198.     TL("Element\tVersion")
  199.     bG = FirstRecord("J")
  200.     while bG do
  201.         TL("\t"+Get("J",1)+"\t"+Get("J",2) )
  202.         bG = NextRecord("J")
  203.     end while
  204.     LF
  205.  
  206.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  207.     TL("Dll┤s")
  208.     RemoveAllTabs()
  209.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  210.     SetTabs("L L30 L200 L450 LR950 L1050 L1250")
  211.     TL("Name\tmin.Version\tinst.Version\tGr÷▀e in Bytes \tgeladen\tPfad")
  212.     bG = FirstRecord("I")
  213.     while bG do
  214.         '@lH7░@lH1░@lH6░@lH4░@lH3░@lH5░@lH2
  215.         TL(Get("I",7)+"\t"+Get("I",1)+"\t"+Get("I",6)+"\t"+Get("I",4)+"\t"+Get("I",3)+"\t"+Get("I",5)+"\t"+Get("I",2) )
  216.         bG = NextRecord("I")
  217.     end while
  218.     LF
  219.  
  220.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  221.     TL("Verzeichnisse")
  222.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  223.     RemoveAllTabs()
  224.     SetTabs(" L L400")
  225.     TL("Verzeichnis\tPfad")
  226.     bG = FirstRecord("H")
  227.     while bG do
  228.         TL(Get("H",1)+"\t"+Get("H",2) )
  229.         bG = NextRecord("H")
  230.     end while
  231.     LF
  232.  
  233.  
  234.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  235.     TL("Druckparameter")
  236.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  237.     RemoveAllTabs()
  238.     SetTabs(" L L900")
  239.     TL("Element\tWert")
  240.     bG = FirstRecord("M")
  241.     while bG do
  242.         TL(Get("M",1)+"\t"+Get("M",2) )
  243.         bG = NextRecord("M")
  244.     end while
  245.     LF
  246.  
  247.  
  248.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  249.     TL("Btrieve")
  250.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  251.     RemoveAllTabs()
  252.     SetTabs(" L L900")
  253.     TL("Element\tWert")
  254.     bG = FirstRecord("K")
  255.     while bG do
  256.         TL(Get("K",1)+"\t"+Get("K",2) )
  257.         bG = NextRecord("K")
  258.     end while
  259.     LF
  260.  
  261.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  262.     TL("Btrieve-DLLs")
  263.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  264.     RemoveAllTabs()
  265.     SetTabs("L L30 L200 L450 R950 L1050 L1250")
  266.     TL("Name\tmin.Version\tinst.Version\tGr÷▀e in Bytes\tgeladen\tPfad")
  267.     bG = FirstRecord("L")
  268.     while bG do
  269.         TL(Get("L",7)+"\t"+Get("L",1)+"\t"+Get("L",6)+"\t"+Get("L",4)+"\t"+Get("L",3)+"\t"+Get("L",5)+"\t"+Get("L",2) )
  270.         bG = NextRecord("L")
  271.     end while
  272.     LF
  273.  
  274.  
  275.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  276.     TL("Schriftarten")
  277.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  278.     RemoveAllTabs()
  279.     SetTabs(" L L300 L500 L700")
  280.     TL("Schriftart\tRaster\tTrueType\tVektor")
  281.     bG = FirstRecord("N")
  282.     while bG do
  283.         TL(Get("N",1)+"\t"+Get("N",2)+"\t"+Get("N",3)+"\t"+Get("N",4) )
  284.         bG = NextRecord("N")
  285.     end while
  286.     LF
  287.  
  288.     SetFont("Arial", 10, FONT_BOLD, COLOR_BLACK)
  289.     TL("Formulare")
  290.     RemoveAllTabs()
  291.     SetFont("Arial", 10, FONT_NORMAL, COLOR_BLACK)
  292.     SetTabs("L L30 L200 L750 L970 L1250 R1700")
  293.     TL("Name\tBeschreibung\tVersion\tAusgabe\tDatum\tGr÷▀e in Bytes")
  294.     SetFont("Arial", 8, FONT_NORMAL, COLOR_BLACK)
  295.     bG = FirstRecord("O")
  296.     while bG do
  297.         TL(Get("O",1)+"\t"+Get("O",2)+"\t"+Get("O",3)+"\t"+Get("O",4)+"\t"+Get("O",5)+"\t"+Get("O",6))
  298.         bG = NextRecord("O")
  299.     end while
  300.     LF
  301.  
  302.  
  303.     bG1 = NextRecord("G")
  304. end while 'bG1
  305.  
  306.